Column 1

Graph 1

nycrest_data %>%
  mutate(text_label = str_c("Boro: ", boro, '\nRating: ', score)) %>% 
  plot_ly(y = ~score, x = ~boro, type = "box",
          alpha = 0.5, 
          colors = "Set2",
          text = ~text_label)

Column 2

Graph 2

nycrest_data %>% 
  count(boro) %>% 
  mutate(boro = fct_reorder(boro, n)) %>% 
  plot_ly(x = ~boro, y = ~n, color = ~boro, type = "bar")

Graph 3